home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 December / december_2001.iso / Internet Programs / HTML Webmaster 2.0 / _SETUP.1 / rainbow.cod < prev    next >
Encoding:
Text File  |  2001-03-04  |  1.2 KB  |  49 lines
  1. <script language="JavaScript">
  2. <!-- Hide the script from old browsers --
  3. // Copyright (c) 2000 Casper HTML
  4.  
  5. function MakeArray(n){
  6.    this.length=n;
  7.    for(var i=1; i<=n; i++) this[i]=i-1;
  8.    return this
  9. }
  10.  
  11. hex=new MakeArray(16);
  12. hex[11]="A"; hex[12]="B"; hex[13]="C"; hex[14]="D"; hex[15]="E"; hex[16]="F";
  13.  
  14. function ToHex(x){ 
  15.    var high=x/16;
  16.    var s=high+""; 
  17.    s=s.substring(0,2);  
  18.    high=parseInt(s,10); 
  19.    var left=hex[high+1]; 
  20.    var low=x-high*16;
  21.    s=low+"";
  22.    s=s.substring(0,2);
  23.    low=parseInt(s,10);
  24.    var right=hex[low+1];
  25.    var string=left+""+right;
  26.    return string;
  27. }
  28.  
  29. function rainbow(text){
  30.    text=text.substring(3,text.length-4); 
  31.    color_d1=255;                               
  32.    mul=color_d1/text.length;
  33.    for(i=0;i < text.length;i++){
  34.       color_d1=255*Math.sin(i/(text.length/3)); "255*Math.sin(i/(text.length/3))"
  35.       color_h1=ToHex(color_d1);
  36.       color_d2=mul*i;
  37.       color_h2=ToHex(color_d2);
  38.       document.write("<FONT COLOR='#FF"+color_h1+color_h2+"'>"+text.substring(i,i+1)+'</FONT>');
  39.    }
  40. }
  41.  
  42. // --End Hiding Here -->
  43. </script>
  44.  
  45. <SCRIPT>
  46. <!--
  47.    {rainbow("--> YOUR MESSAGE GOES HERE. THE LONG THE BETTER!<!--");} 
  48. //-->
  49. </SCRIPT>